#!/usr/bin/perl

# Иванов Илья
# 23.11.2013

# ЗАДАНИЕ:
# Создать запрос для выбора из текста дробных чисел с разделителем
# дробной части в виде точки. Разряды целой части могут не выделяться
# или отделяться пробелом или запятой.

# РЕШЕНИЕ:
# В каждой строке выделяет число скобками [].

while ($line = <>) {
	$line =~ s/([-+]?\d{1,3}(([ ,]?)\d{3}(\3\d{3})*)?(\.\d+)?)/[$1]/g;
	print $line;
}
